home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinMessenger 10.xpl < prev    next >
Text File  |  2002-01-13  |  2KB  |  45 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Instant Messaging\Windows Messenger\Passport"
  5. "NAME"="Passport reminders"
  6. "VERSION"="1.10"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0000011"
  9. "TEXT 1"="Windows Messenger passport reminders"
  10. "DESCRIPTION 1"="With Windows XP, Microsoft seems to have given the impression that you need to get a Microsoft .NET Passport to use it. This isn't the case, and so you can disable the messages that popup to remind you to register your details. To do this, click the button."
  11. "DESCRIPTION 2"="Note: only affects Windows Messenger in Windows XP."
  12. "DESCRIPTION 3"="Windows Messenger may be obtained at http://messenger.microsoft.com/"
  13. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Taken from the 20th December 2001 issue of Lockergnome Windows Daily - http://www.lockergnome.com/issues/daily/20011220.html"
  17.  
  18.  
  19. sP="HKEY_CURRENT_USER\Software\Microsoft\MessengerService\"
  20. sV="PassportBalloon"
  21.  
  22. sValue="0a000000"
  23.  
  24. Sub Plugin_Initialize 
  25.  if RegPathExists(sP)=false then
  26.     Call Disable()
  27.  else
  28.     i=RegReadValue(sP & sV)
  29.     if i<>sValue then 
  30.        Call SetUIElement(1,true)
  31.     end if
  32.  end if 
  33. End Sub
  34.  
  35. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  if GetUIElement(1)=true then
  37.     if RegValueExists(sP & sV) then Call RegDeleteValue(sP & sV)
  38.  else
  39.    Call RegWriteValue(sP&sV,sValue,3)
  40.  end if
  41. End Sub
  42.  
  43. Sub Plugin_Terminate 
  44. End Sub
  45.